﻿Imports FileSearch
Public Class frmSearch

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        FolderBrowserDialog1.SelectedPath = "D:\"
        FolderBrowserDialog1.ShowDialog()
        TextBox1.Text = FolderBrowserDialog1.SelectedPath
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        FolderBrowserDialog1.SelectedPath = "D:\"
        FolderBrowserDialog1.ShowDialog()
        TextBox6.Text = FolderBrowserDialog1.SelectedPath
    End Sub

    Dim fs As New Search()
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ' Thực hiện lên tìm kiếm với các điều kiện
        Dim f As New Search()
        Dim lv As New ListViewItem
        f.Search(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text)
        fs = f
        ListView1.Items.Clear()

       

        For Each ite As IO.FileInfo In fs.ArrayFilesInfo
            lv = ListView1.Items.Add(ite.Name)
            lv.SubItems.Add(ite.FullName)
            lv.SubItems.Add(ite.CreationTime)
            lv.SubItems.Add(ite.LastAccessTime)
            lv.SubItems.Add(ite.LastWriteTime)           
            lv.SubItems.Add(ite.Length)
        Next
        Label12.Text = "Số tệp tin trùng nhau:" & fs.IdenticalFileCount.ToString
        Label8.Text = "Số tệp tin tìm được:" & fs.Count.ToString
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        fs.SaveSearch(TextBox5.Text, TextBox6.Text, TextBox7.Text)
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        fs.SaveSearch(TextBox5.Text, TextBox6.Text, TextBox7.Text, "Inden")
    End Sub

    Private Sub frmSearch_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListView1.Columns.Add("Tên tệp", 50, HorizontalAlignment.Left)
        ListView1.Columns.Add("Đường dẫn", 100, HorizontalAlignment.Left)
        ListView1.Columns.Add("Thời qian tạo", 100, HorizontalAlignment.Left)
        ListView1.Columns.Add("Thời gian truy cập cuối", 100, HorizontalAlignment.Left)
        ListView1.Columns.Add("Thời gian cập nhật", 100, HorizontalAlignment.Left)
        ListView1.Columns.Add("Kích thước", 100, HorizontalAlignment.Left)
        Dim a As New ToolTip
        a.SetToolTip(TextBox1, "Nhập thư mục gốc tìm kiếm")
        a.SetToolTip(TextBox2, "Nhập điều kiện tệp tin tìm kiếm")
        a.SetToolTip(TextBox3, "Nhập điều kiện thư mục tìm kiếm")
        a.SetToolTip(TextBox4, "Nhập thời gian giới hạn tìm kiếm")
        a.SetToolTip(TextBox5, "Nhập thư mục lưu trữ kết quả tìm kiếm")
        a.SetToolTip(TextBox6, "Nhập tên tệp tin lưu kết quả tìm kiếm")
        a.SetToolTip(TextBox7, "Nhập loại tệp tin lưu(html hoặc txt)")


    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub
End Class